home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1987 February
/
64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64
/
film maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
729b
|
20 lines
4 ifa=2thengosub90:sys828:close2:goto70
5 a=a+1:ifa=1thenload"mpmloader",8,8
7 input"[147]diskette mit lores-bildern einlegen";a$
10 t=4000
20 reada$:ifa$="*"then60
30 poke252,int(t/256):poke251,t-peek(252)*256:sys828,a$
40 t=t+1000:goto20
60 input"programmdisk einlegen";a$
61 print""
62 poke251,160:poke252,15:poke254,int(t/256)
65 poke253,t-peek(254)*256:load"mpsaver",8,8
70 a=5:print"[147]film ist bereit
80 [153]"vergessen sie nicht das file 'mpviewer' mit load und save auf die
85 print"filmdisk zu speichern !!!":end
90 input"[147]bitte filmdisk einlegen";a$:print"bitte namen angeben"
95 return
100 data 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20
110 data 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40
120 data41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,*